perm filename SYS1.LAP[UCI,SYS] blob
sn#044156 filedate 1973-07-03 generic text, type T, neo UTF8
(DEFPROP SELECTQ1 T NOCALL)
(DEFPROP SUBPR T NOCALL)
(DEFPROP MEMCDR T NOCALL)
(LAP %DEFINE SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S)
(CALL 2 (E GETL) S)
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE REDEFINED) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -4 P)
(CALL 2 (E XCONS) S)
(JRST 0 TAG4)
TAG5 (MOVE 1 -4 P)
TAG4 (MOVE 2 -2 P)
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(CALL 2 (E CONS) S)
(MOVEI 2 (QUOTE LAMBDA) S)
(CALL 2 (E XCONS) S)
(MOVE 3 -1 P)
(MOVE 2 1)
(MOVE 1 -4 P)
(CALL 3 (E PUTPROP) S)
(MOVE 1 0 P)
(SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP DE FSUBR)
(MOVEI 4 (QUOTE EXPR) S)
(HRRZ@ 3 1)
(HRRZ@ 3 3)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 1 1)
(JCALL 4 (E %DEFINE) S)
NIL
(LAP DF FSUBR)
(MOVEI 4 (QUOTE FEXPR) S)
(HRRZ@ 3 1)
(HRRZ@ 3 3)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 1 1)
(JCALL 4 (E %DEFINE) S)
NIL
(LAP DM FSUBR)
(MOVEI 4 (QUOTE MACRO) S)
(HRRZ@ 3 1)
(HRRZ@ 3 3)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 1 1)
(JCALL 4 (E %DEFINE) S)
NIL
(LAP %DEREAD SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(CALL 1 (E ASCII) S)
(CALL 1 (E INTERN) S)
(MOVEI 3 (QUOTE READMACRO) S)
(MOVE 2 -1 P)
(MOVEM 1 -2 P)
(CALL 3 (E PUTPROP) S)
(POP P 2)
(MOVE 1 -1 P)
(CALL 2 (E SETCHR) S)
(EXCH 1 -1 P)
(SUB P (C 2 0 2 0))
(JCALL 1 (E CHRVAL) S)
NIL
(LAP DRM FSUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CALL 1 (E CHRVAL) S)
(MOVEI 3 (QUOTE 12))
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(CALL 3 (E %DEREAD) S)
(SUB P (C 1 0 1 0))
(JCALL 1 (E ASCII) S)
NIL
(LAP DSM FSUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CALL 1 (E CHRVAL) S)
(MOVEI 3 (QUOTE 13))
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(CALL 3 (E %DEREAD) S)
(SUB P (C 1 0 1 0))
(JCALL 1 (E ASCII) S)
NIL
(LAP %DEVP SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE -1))
(CALL 2 (E NTHCHAR) S)
(CAIN 1 (QUOTE :) S)
(JRST 0 TAG1)
(MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG4)
(HRRZ@ 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG1)
TAG4 (TDZA 1 1)
TAG1 (MOVEI 1 (QUOTE T) S)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP %READIN SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E INC) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVEI 1 (QUOTE ((READ))) S)
(CALL 17 (E ERRSET) S)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG2)
(HLRZ@ 1 0 P)
(CALL 1 (E *EVAL) S)
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG10)
(MOVE 1 0 P)
(CALL 1 (E PRINT) S)
TAG10 (JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE T) S)
(MOVE 1 -1 P)
(CALL 2 (E INC) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP DSKIN FSUBR)
(PUSH P 1)
(CALL 0 (E GENSYM) S)
(MOVEI D (QUOTE DSK:) S)
(PUSH P D)
(PUSH P 1)
TAG1 (MOVE 1 -2 P)
(JUMPN 1 TAG6)
(MOVEI 1 (QUOTE FILES-LOADED) S)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 1)
(CALL 1 (E %DEVP) S)
(JUMPE 1 TAG10)
(HLRZ@ 1 -2 P)
(HRRZ@ 2 -2 P)
(MOVEM 1 -1 P)
(MOVEM 2 -2 P)
(JRST 0 TAG1)
TAG10 (HLRZ@ 1 -2 P)
(CALL 1 (E NCONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(CALL 17 (E INPUT) S)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 0 P)
(CALL 2 (E %READIN) S)
(HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP PUTSYM FSUBR)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 0 P)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG12)
(MOVE 2 0 P)
(MOVE 1 2)
(CALL 2 (E *PUTSYM) S)
(JRST 0 TAG11)
TAG12 (HLRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E *EVAL) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *PUTSYM) S)
TAG11 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP GETSYM FSUBR)
(HRRZ@ 2 1)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 -3 P)
(PUSH P 1)
(CALL 1 (E *GETSYM) S)
(PUSH P 1)
(JUMPE 1 TAG15)
(CALL 1 (E NUMVAL) S)
(HLRZ@ 3 -6 P)
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 3 (E PUTPROP) S)
(JRST 0 TAG14)
TAG15 (MOVE 1 -1 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE NOT/ IN/ SYMBOL/ TABLE) S)
(CALL 1 (E PRINC) S)
TAG14 (MOVE 1 0 P)
(CALL 1 (E NCONS) S)
(MOVEM 1 -4 P)
(MOVE 1 -3 P)
(JUMPE 1 TAG21)
(MOVE 1 -4 P)
(HRRM@ 1 -3 P)
(HRRZ@ 2 -3 P)
(JRST 0 TAG20)
TAG21 (MOVE 2 -4 P)
(MOVEM 2 -2 P)
TAG20 (HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
(MOVEM 2 -3 P)
(SUB P (C 2 0 2 0))
(JRST 0 TAG1)
TAG6 (MOVE 1 0 P)
(SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP DSKOUT FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(CALL 1 (E %DEVP) S)
(JUMPE 1 TAG6)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG5)
TAG6 (MOVEI 1 (QUOTE DSK:) S)
(MOVEM 1 0 P)
TAG5 (HLRZ@ 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(CALL 17 (E OUTPUT) S)
(MOVEI 2 (QUOTE T) S)
(MOVEI 1 (QUOTE T) S)
(CALL 2 (E OUTC) S)
(MOVE 1 (SPECIAL LPTLENGTH) S)
(CALL 1 (E LINELENGTH) S)
TAG1 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG14)
(HLRZ@ 1 -1 P)
(CALL 1 (E NCONS) S)
(CALL 17 (E GRINL) S)
(JRST 0 TAG13)
TAG14 (HLRZ@ 1 -1 P)
(CALL 1 (E *EVAL) S)
TAG13 (JRST 0 TAG1)
TAG12 (MOVEI 2 (QUOTE T) S)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E OUTC) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(DEFPROP LPTLENGTH (NIL . 160) VALUE)
(LAP GRINL FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 -3 P)
(CALL 1 (E *EVAL) S)
(HLRZ@ 2 -3 P)
(MOVEM 1 0 P)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE GRINDEF) S)
(CALL 2 (E APPLY#) S)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG3)
(HLRZ@ 1 0 P)
(MOVEM 1 -1 P)
(MOVEI 2 (QUOTE READMACRO) S)
(CALL 2 (E GET) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG14)
(CALL 0 (E TERPRI) S)
(MOVE 1 -1 P)
(CALL 1 (E CHRVAL) S)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE FUNCTION) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE NIL))
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 2 (E SETCHR) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE %DEREAD) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE 1))
(CALL 2 (E SPRINT) S)
(CALL 0 (E TERPRI) S)
TAG14 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG3 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG5 (MOVEI 1 (QUOTE NIL))
(SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP TCONC SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPN 1 TAG2)
(MOVE 1 2)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEM 1 0 P)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG2 (CALL 1 (E ATOM) S)
(JUMPE 1 TAG4)
(MOVE 1 -1 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE BAD/ ARGUMENT/ -/ TCONC) S)
(CALL 1 (E ERROR) S)
(JRST 0 TAG1)
TAG4 (HRRZ@ 1 -1 P)
(JUMPE 1 TAG5)
(MOVE 1 2)
(CALL 1 (E NCONS) S)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(POP P 2)
(HRRM@ 2 1)
(HRRZ@ 2 1)
(HRRM@ 2 -1 P)
(MOVE 1 -1 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 0 P)
(CALL 1 (E NCONS) S)
(MOVEM 1 0 P)
(HRRM@ 1 -1 P)
(HRLM@ 1 -1 P)
(MOVE 1 -1 P)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP LCONC SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 2 TAG6)
(JRST 0 TAG2)
TAG6 (MOVE 1 2)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG12)
(MOVE 1 2)
(CALL 1 (E LAST) S)
(HRRZ@ 2 1)
(MOVEM 1 0 P)
(JUMPE 2 TAG10)
TAG12 (MOVE 1 -1 P)
(CALL 1 (E PRINT) S)
(JRST 0 TAG1)
TAG10 (MOVE 1 -2 P)
(JUMPN 1 TAG13)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CONS) S)
(JRST 0 TAG2)
TAG13 (CALL 1 (E ATOM) S)
(JUMPE 1 TAG15)
(MOVE 1 -2 P)
(CALL 1 (E PRINT) S)
(JRST 0 TAG1)
TAG15 (HLRZ@ 1 -2 P)
(JUMPN 1 TAG16)
(MOVE 1 0 P)
(HRRM@ 1 -2 P)
(MOVE 1 -1 P)
(HRLM@ 1 -2 P)
(MOVE 1 -2 P)
(JRST 0 TAG2)
TAG16 (HRRZ@ 1 -2 P)
(MOVE 2 -1 P)
(HRRM@ 2 1)
(MOVE 1 0 P)
(HRRM@ 1 -2 P)
(MOVE 1 -2 P)
(JRST 0 TAG2)
TAG1 (MOVEI 1 (QUOTE BAD/ ARGUMENT/ -/ LCONC) S)
(CALL 1 (E ERROR) S)
(MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP DREVERSE SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG6)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG6 (HRRZ@ 1 -2 P)
(MOVE 2 -1 P)
(HRRM@ 2 0 P)
(MOVE 2 0 P)
(MOVEM 1 -2 P)
(MOVEM 2 -1 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP REMOVE SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 2)
(JRST 0 TAG1)
TAG2 (MOVE 2 -1 P)
(HLRZ@ 1 0 P)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG3)
(HRRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E REMOVE) S)
(JRST 0 TAG1)
TAG3 (HLRZ@ 1 0 P)
(HRRZ@ 2 0 P)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E REMOVE) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP DREMOVE SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG3)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG2)
TAG3 (HLRZ@ 1 2)
(CAME 1 -1 P)
(JRST 0 TAG4)
(HRRZ@ 1 2)
(JUMPE 1 TAG6)
(HRRZ@ 1 2)
(HLRZ@ 1 1)
(HRLM@ 1 2)
(HRRZ@ 1 2)
(HRRZ@ 1 1)
(HRRM@ 1 2)
(MOVE 1 -1 P)
(CALL 2 (E DREMOVE) S)
TAG6 (JRST 0 TAG2)
TAG4 (PUSH P 0 P)
TAG1 (HRRZ@ 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG15)
(MOVE 1 0 P)
(JRST 0 TAG11)
TAG15 (HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CAME 1 -2 P)
(JRST 0 TAG16)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(HRRM@ 1 -1 P)
(JRST 0 TAG14)
TAG16 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
TAG14 (JRST 0 TAG1)
TAG11 (SUB P (C 1 0 1 0))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP TAILP SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPE 1 TAG3)
TAG1 (MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG5)
(MOVE 1 -1 P)
(CAME 1 0 P)
(JRST 0 TAG10)
(JRST 0 TAG4)
TAG10 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG5 (MOVEI 1 (QUOTE NIL))
TAG4
TAG3 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP ASSOC# SUBR)
(PUSH P 1)
(PUSH P 2)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG3)
(HLRZ@ 2 1)
(HLRZ@ 2 2)
(MOVE 1 -1 P)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG7)
(HLRZ@ 1 0 P)
(JRST 0 TAG2)
TAG7 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP PRINTLEV SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 0 (E TERPRI) S)
(POP P 2)
(MOVE 1 0 P)
(CALL 2 (E PRINLEV) S)
(POP P 1)
(POPJ P)
NIL
(LAP PRINLEV SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG3)
(MOVE 1 -1 P)
(CALL 1 (E PRIN1) S)
(JRST 0 TAG2)
TAG3 (MOVE 1 (SPECIAL %PREVFN%) S)
(CAME 1 -1 P)
(JRST 0 TAG4)
(MOVEI 1 (QUOTE \#\/ ) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG2)
TAG4 (MOVE 1 0 P)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG5)
(MOVEI 1 (QUOTE &/ ) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG2)
TAG5 (PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL $%DOTFLG) S)
(JUMPE 1 TAG14)
(CLEARM 0 (SPECIAL $%DOTFLG) S)
(MOVEI 1 (QUOTE /./././ ) S)
(JRST 0 TAG13)
TAG14 (MOVEI 1 (QUOTE /() S)
TAG13 (CALL 1 (E PRINC) S)
(HLRZ@ 1 -3 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E SUB1) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E PRINLEV) S)
(MOVE 1 -3 P)
(MOVEM 1 0 P)
TAG1 (MOVE 2 0 P)
(MOVE 1 -3 P)
(PUSHJ P MEMCDR)
(JUMPE 1 TAG20)
(MOVE 1 -1 P)
(JUMPE 1 TAG22)
(MOVEI 1 (QUOTE / /./././]) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG11)
TAG22 (MOVEI 1 (QUOTE T) S)
(MOVEM 1 -1 P)
TAG20 (HRRZ@ 1 0 P)
(PUSH P 1)
(CALL 0 (E UNBOUND) S)
(POP P 2)
(CAMN 1 2)
(JRST 0 TAG26)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG25)
TAG26 (MOVEI 1 (QUOTE / /./ UNBOUND/)) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG11)
TAG25 (MOVE 1 0 P)
(JUMPN 1 TAG33)
(MOVEI 1 (QUOTE /)) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG11)
TAG33 (CALL 1 (E PATOM) S)
(JUMPE 1 TAG35)
(MOVEI 1 (QUOTE / /./ ) S)
(CALL 1 (E PRINC) S)
(MOVE 1 0 P)
(CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE /)) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG11)
TAG35 (MOVEI 1 (QUOTE / ) S)
(CALL 1 (E PRINC) S)
(HLRZ@ 1 0 P)
(CALL 1 (E PATOM) S)
(JUMPN 1 TAG37)
(HLRZ@ 1 0 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E SUB1) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E PRINLEV) S)
(JRST 0 TAG36)
TAG37 (HLRZ@ 1 0 P)
(CALL 1 (E PRIN1) S)
TAG36 (JRST 0 TAG1)
TAG11 (MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP MEMCDR SUBR)
(PUSH P 1)
(PUSH P 2)
TAG1 (HRRZ@ 1 0 P)
(CAME 1 -1 P)
(JRST 0 TAG6)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG6 (MOVE 1 -1 P)
(CAMN 1 0 P)
(JRST 0 TAG3)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(DEFPROP %PREVFN% (NIL . " ") VALUE)
(DEFPROP %LOOKDPTH (NIL . 6) VALUE)
(DEFPROP $%DOTFLG (NIL) VALUE)
(LAP LSUBST SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 1 3)
(JUMPE 1 TAG1)
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 -1 P)
(CAME 1 0 P)
(JRST 0 TAG4)
(MOVE 1 -2 P)
(JRST 0 TAG3)
TAG4 (MOVE 1 0 P)
TAG3 (JRST 0 TAG1)
TAG2 (HLRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG7)
(PUSH P (C 0 0 TAG10 0))
(MOVE 1 -3 P)
(CALL 1 (E COPY) S)
(PUSH P 1)
(HRRZ@ 3 -2 P)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 3 (E LSUBST) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG10 (JRST 0 TAG1)
TAG7 (HLRZ@ 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E LSUBST) S)
(HRRZ@ 3 0 P)
(MOVE 2 -1 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 3 (E LSUBST) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP SELECTQ FSUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CALL 1 (E *EVAL) S)
(HRRZ@ 2 0 P)
(PUSHJ P SELECTQ1)
(MOVE 2 1)
(MOVEI 1 (QUOTE PROGN) S)
(SUB P (C 1 0 1 0))
(JCALL 2 (E APPLY#) S)
NIL
(DEFPROP SELECTQ (NIL . MBD) VALUE)
(LAP SELECTQ1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JUMPN 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 0 P)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(CAMN 2 -2 P)
(JRST 0 TAG12)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG10)
(HLRZ@ 2 0 P)
(MOVE 1 -2 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG10)
TAG12 (HRRZ@ 1 0 P)
(JRST 0 TAG2)
TAG10 (JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP SUBLIS SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPE 1 TAG2)
(MOVEI 3 (QUOTE NIL))
(EXCH 2 1)
(PUSHJ P SUBPR)
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP SUBPAIR SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPE 1 TAG2)
(PUSH P 1)
(PUSH P 3)
(MOVE 3 2)
(JUMPN 3 TAG3)
(MOVEI 3 (QUOTE (NIL)) S)
TAG3 (MOVE 2 -1 P)
(POP P 1)
(PUSHJ P SUBPR)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP SUBPR SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG1)
(HRRZ@ 1 -4 P)
(MOVEM 1 0 P)
(JUMPE 1 TAG6)
(PUSHJ P SUBPR)
(MOVEM 1 0 P)
TAG6 (MOVE 3 -2 P)
(MOVE 2 -3 P)
(HLRZ@ 1 -4 P)
(PUSHJ P SUBPR)
(MOVEM 1 -1 P)
(HLRZ@ 1 -4 P)
(CAME 1 -1 P)
(JRST 0 TAG12)
(HRRZ@ 1 -4 P)
(CAMN 1 0 P)
(JRST 0 TAG10)
TAG12 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CONS) S)
(JRST 0 TAG7)
TAG10 (MOVE 1 -4 P)
TAG7 (JRST 0 TAG2)
TAG1 (MOVE 1 -3 P)
(JUMPN 1 TAG20)
(MOVE 1 -4 P)
(JRST 0 TAG2)
TAG20 (MOVE 1 -2 P)
(JUMPE 1 TAG22)
(HLRZ@ 1 -3 P)
(CAME 1 -4 P)
(JRST 0 TAG24)
(HLRZ@ 1 -2 P)
(JRST 0 TAG2)
TAG24 (JRST 0 TAG17)
TAG22 (HLRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CAME 1 -4 P)
(JRST 0 TAG30)
(HLRZ@ 1 -3 P)
(HRRZ@ 1 1)
(JRST 0 TAG2)
TAG30
TAG17 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG32)
(HRRZ@ 1 1)
(JUMPN 1 TAG33)
(MOVEI 1 (QUOTE (NIL)) S)
TAG33 (MOVEM 1 -2 P)
(JUMPN 1 TAG31)
TAG32
TAG31 (JRST 0 TAG1)
TAG2 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP DSUBST SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEM 3 0 P)
(CAME 2 3)
(JRST 0 TAG6)
(CALL 1 (E COPY) S)
(JRST 0 TAG2)
TAG6
TAG1 (MOVE 1 -1 P)
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG10)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG10 (MOVE 1 -2 P)
(CALL 1 (E LITATOM) S)
(JUMPE 1 TAG13)
(HLRZ@ 1 -1 P)
(CAME 1 -2 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG12)
TAG13 (HLRZ@ 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E EQUAL) S)
TAG12 (JUMPE 1 TAG11)
(MOVE 1 -3 P)
(CALL 1 (E COPY) S)
(HRLM@ 1 -1 P)
(JRST 0 TAG7)
TAG11 (HLRZ@ 3 -1 P)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 3 (E DSUBST) S)
TAG7 (MOVE 1 -2 P)
(JUMPE 1 TAG21)
(HRRZ@ 1 -1 P)
(CAME 1 -2 P)
(JRST 0 TAG21)
(MOVE 1 -3 P)
(CALL 1 (E COPY) S)
(HRRM@ 1 -1 P)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG21 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP RETFROM SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 0 (E SPDLPT) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 3 (E STKSRCH) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG2)
(MOVE 2 0 P)
(CALL 2 (E OUTVAL) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 -1 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE NO/ EVAL/ BLIP/ -/ RETFROM) S)
(CALL 1 (E ERROR) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP LDIFF SUBR)
(PUSH P 1)
(PUSH P 2)
(CAME 1 2)
(JRST 0 TAG3)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG2)
TAG3 (JUMPN 2 TAG4)
(JRST 0 TAG2)
TAG4 (HLRZ@ 1 -1 P)
(CALL 1 (E NCONS) S)
(PUSH P 1)
(PUSH P 1)
TAG1 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(CAME 1 -2 P)
(JRST 0 TAG14)
(MOVE 1 -1 P)
(JRST 0 TAG10)
TAG14 (JUMPN 1 TAG15)
(MOVEI 1 (QUOTE NOT/ A/ TAIL/ -/ LDIFF) S)
(CALL 1 (E ERROR) S)
TAG15 (HLRZ@ 1 -3 P)
(CALL 1 (E NCONS) S)
(HRRM@ 1 0 P)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG10 (SUB P (C 2 0 2 0))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP NTH SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG3)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS) S)
(JRST 0 TAG2)
TAG3
TAG1 (MOVE 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG14)
(MOVE 1 0 P)
(CAIE 1 (QUOTE 1))
(JRST 0 TAG12)
TAG14 (MOVE 1 -1 P)
(JRST 0 TAG6)
TAG12 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(MOVE 1 0 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG6
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP GRINDEF FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPN 1 TAG11)
(CALL 0 (E TERPRI) S)
(JRST 0 TAG6)
TAG11 (HLRZ@ 1 -3 P)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG14)
(CALL 0 (E TERPRI) S)
(CALL 0 (E TERPRI) S)
(HLRZ@ 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG17)
(HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE LAP) S)
(JRST 0 TAG17)
(HLRZ@ 1 0 P)
(CALL 1 (E PRIN1) S)
(HRRZ@ 1 0 P)
(PUSH P 1)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG27)
(HLRZ@ 1 0 P)
(PUSH P 1)
(JUMPE 1 TAG33)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG33)
(MOVEI 1 (QUOTE 1))
(JRST 0 TAG32)
TAG33 (MOVEI 1 (QUOTE 10))
TAG32 (CALL 1 (E TAB) S)
(POP P 1)
(CALL 1 (E PRIN1) S)
(HRRZ@ 2 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 TAG2)
TAG27 (MOVE 1 -1 P)
(JUMPE 1 TAG41)
(MOVEI 1 (QUOTE 10))
(CALL 1 (E TAB) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E PRIN1) S)
TAG41 (SUB P (C 1 0 1 0))
(JRST 0 TAG16)
TAG17 (MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E SPRINT) S)
TAG16 (JRST 0 TAG4)
TAG14 (MOVE 1 (SPECIAL GRINPROPS) S)
(MOVEM 1 0 P)
TAG3 (HLRZ@ 2 0 P)
(HLRZ@ 1 -3 P)
(CALL 2 (E GET) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG47)
(CALL 1 (E PATOM) S)
(JUMPN 1 TAG50)
(HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE LAMBDA) S)
(JRST 0 TAG54)
(HRRZ@ 1 -1 P)
(CALL 1 (E CADR) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG56)
(HRRZ@ 1 -1 P)
(CALL 1 (E CAADR) S)
(CAIE 1 (QUOTE BREAK1) S)
(JRST 0 TAG61)
(MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S)
(HLRZ@ 1 0 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG63)
(MOVEI 2 (QUOTE TRACE) S)
(HLRZ@ 1 -3 P)
(CALL 2 (E GET) S)
(MOVEM 1 -2 P)
TAG63 (JRST 0 TAG60)
TAG61 (MOVEI 1 (QUOTE NIL))
TAG60 (JRST 0 TAG55)
TAG56 (MOVEI 1 (QUOTE NIL))
TAG55 (JRST 0 TAG53)
TAG54 (MOVEI 1 (QUOTE NIL))
TAG53 (JUMPE 1 TAG52)
(MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S)
(HRRZ@ 1 -2 P)
(CALL 2 (E GETL) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG65)
(CALL 1 (E CADR) S)
(MOVEM 1 -1 P)
TAG65 (JRST 0 TAG51)
TAG52 (HRRZ@ 1 -1 P)
(PUSH P 1)
(CALL 0 (E UNBOUND) S)
(PUSH P 1)
(CAME 1 -1 P)
(JRST 0 TAG66)
(TDZA 1 1)
TAG66 (MOVEI 1 (QUOTE T) S)
(SUB P (C 2 0 2 0))
TAG51
TAG50
TAG47 (JUMPE 1 TAG45)
(CALL 0 (E TERPRI) S)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE /(DEFPROP/ ) S)
(CALL 1 (E PRINC) S)
(HLRZ@ 1 -3 P)
(CALL 1 (E PRIN1) S)
(CALL 0 (E TERPRI) S)
(MOVEI 2 (QUOTE 2))
(MOVE 1 -1 P)
(CALL 2 (E SPRINT) S)
(CALL 0 (E TERPRI) S)
(HLRZ@ 1 0 P)
(CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE /)) S)
(CALL 1 (E PRINC) S)
TAG45 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JUMPN 1 TAG3)
TAG4 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE NIL))
(SUB P (C 4 0 4 0))
(POPJ P)
NIL
(DEFPROP GRINPROPS (NIL EXPR FEXPR MACRO VALUE SPECIAL) VALUE)